global env,sol,holder,prodname,Reads,Writes,Network,sideone,default
global holder2,prodname2,Reads2,Writes2,Network2,sidetwo,common
global prodname3,prodname4,prodname5,service,floor,NH
global prodnameH,prodnameHP,tidyUpNow,service,foundation,lastRoom
global testRoom,testRoom2,testRoom3
put empty into fld "click"
put empty into fld "click2"
put "Info Management" into default
if sol is empty then put default into sol
if env is empty then put "Mac" into env
set hilite of bkgnd btn id 43 to false
set hilite of bkgnd btn id 52 to false
--∆ Check cleaning flags
put env && sol into testRoom
put env && service into testRoom2
put env && foundation into testRoom3
if lastRoom = testRoom or lastRoom = testRoom2 or lastRoom = testRoom3 then
put false into tidyUpNow
else
put true into tidyUpNow
end if
if tidyUpNow is true then clean
put false into tidyUpNow
--∆ Set up for Hardware level 1
if floor is 1 then
if env is "Mac" then
put "Macintosh to Macintosh" && sol && "Room" into fld "Solname"
else
put "Macintosh to" && env && sol && "Room" into fld "Solname"
end if
put card field (env && sol) of card "Mac Grid" into holder
if prodNameH <> empty then
put "click for product info" into fld "click"
put prodnameH into fld "Prodname"
set hilite of bkgnd btn id 43 to true
if prodNameHP <> empty then
put prodnameHP into fld "Prodname2"
set hilite of bkgnd btn id 52 to true
put "click for product info" into fld "click2"
end if
end if
set hilite of bkgnd btn "Application Level" to false
set hilite of bkgnd btn "Network Level" to false
set hilite of bkgnd btn "Hardware Level" to true
exit opencard
end if
--∆ Set up for Network Services level 2
if floor is 2 then
if env is "Mac" then
put "Macintosh to Macintosh" && sol && "Room" into fld "Solname"
else
put "Macintosh to" && env && sol && "Room" into fld "Solname"
end if
set hilite of bkgnd btn "Application Level" to false
set hilite of bkgnd btn "Network Level" to true
set hilite of bkgnd btn "Hardware Level" to false
exit opencard
end if
--∆ Set up for Applications level 3
if floor is 3 then
--∆ Set titles at back of room
if env is "Mac" then
put "Macintosh to Macintosh" && sol && "Room" into fld "Solname"
else
put "Macintosh to" && env && sol && "Room" into fld "Solname"
end if
put card field (env && sol) of card "Mac Grid" into holder
put env && "Solution Room" & return & "click on the Macintosh" into fld "Tell"
put empty into sideone
put empty into fld "Side1"
put empty into fld "prodName"
put empty into fld "prodNameUp"
put empty into sidetwo
put empty into fld "Side2"
put empty into fld "prodName2"
put empty into fld "prodNameUp2"
put empty into fld "Network"
put "O" into CPUTitle
put "O" into CPUTitle2
put empty into common
--∆ Fill in left side of room if a mac product has been selected
if prodName <> empty then
set hilite of bkgnd btn id 43 to true
put "click for product info" into fld "click"
put prodname into fld "Prodname"
put prodname into fld "ProdnameUp"
repeat with i = 1 to the number of lines of Reads
if item 1 of line i of Reads is return then
exit repeat
else
put item 1 of line i of Reads & return after sideone
end if
end repeat
end if
--∆ Fill in right side of room if a host product has been selected
if prodName2 <> empty or prodName3 <> empty then
set hilite of bkgnd btn id 52 to true
put "click for product info" into fld "click2"
--∆ Special treatment if prodName 3 if full
if prodName3 <> empty then
put empty into common
put prodname3 into fld "Prodname2"
put prodname3 into fld "ProdnameUp2"
else
put prodname2 into fld "Prodname2"
put prodname2 into fld "ProdnameUp2"
if env is "Mac" then
put "Macintosh o" into CPUTitle2
else
put env & " o" into CPUTitle2
end if
end if
repeat with i = 1 to the number of lines of Reads2
if item 1 of line i of Reads2 is return then
exit repeat
else
put item 1 of line i of Reads2 & return after sidetwo
end if
end repeat
end if
--∆ Insert correct titles and display file formats
if sideone <> empty then
put "Macintosh opens files using:" & return & sideone into fld "Side1"
else
put "Click on CPU screen at left to configure." into fld "Side1"
end if
if sidetwo <> empty then
put CPUTitle2 & "pens files using:" & return & sidetwo into fld "Side2"
else
put "Click on CPU screen at right to configure." into fld "Side2"
end if
--∆ Determine file format matches
put empty into matchRW
put empty into matchWR
if sideone <> empty and sidetwo <> empty then
repeat with i = 1 to the number of lines of Reads
if item 1 of line i of Reads is return then exit repeat
if item 1 of line i of Reads is in Writes2 then
put "Read-Write match" into matchRW
end if
end repeat
repeat with i = 1 to the number of lines of Reads2
if item 1 of line i of Reads2 is return then exit repeat
if item 1 of line i of Reads2 is in Writes then
put "Write-Read match" into matchWR
end if
end repeat
put matchRW & ", " & matchWR & return after common
end if
--∆ Network compare
repeat with i = 1 to the number of lines of Network
if item 1 of line i of Network is return then exit repeat
if item 1 of line i of Network is in Network2 then
put item 1 of line i of Network & return after common
end if
end repeat
if common <> empty then
if matchRW is empty or matchWR is empty then
put "Network Method:" & return & "Translation" into fld "Network"
end if
put "Network Method(s):" & return & common into fld "Network"
else
put return & "No communication link found" into fld "Network"
end if
set hilite of bkgnd btn "Network Level" to false
set hilite of bkgnd btn "Application Level" to true
set hilite of bkgnd btn "Hardware Level" to false
--∆ Set connection buttons to prompt viewer for next best step
if fld "prodname" is not empty then
set icon of cd btn "wire1" to "Connected"
else
if fld "prodname2" is not empty then
set icon of cd btn "wire1" to "Only Broken Left"
else
set icon of cd btn "wire1" to "Broken Left"
end if
end if
if fld "prodname2" is not empty then
set icon of cd btn "wire2" to "Connected"
else
if fld "prodname" is not empty then
set icon of cd btn "wire2" to "Only Broken Right"
else
set icon of cd btn "wire2" to "Broken Right"
end if
end if
end if
end openCard
on closeCard
global service,network
put "" into fld "Tell"
put "" into fld "Prodname"
put "" into fld "ProdnameUp"
put "" into fld "Side1"
put "" into fld "Side2"
put "" into fld "Network"
put "" into fld "Prodname2"
put "" into fld "ProdnameUp2"
set hilite of bkgnd btn id 43 to false
set hilite of bkgnd btn id 52 to false
put "" into fld "Click"
put "" into fld "Click2"
end closeCard
on parseR
global holder,Reads,prodname
put empty into Reads
repeat with i = 1 to the number of lines of holder
if item 1 of line i of holder is prodname then
put item 4 of line i of holder into dotnames
repeat
put offset("•",dotnames) into num
if num is empty or num is 0 then exit repeat
put char 1 to (num - 1) of dotnames & return after Reads
delete char 1 to num of dotnames
end repeat
end if
end repeat
end parseR
on parseW
global holder,Writes,prodname
put empty into Writes
repeat with i = 1 to the number of lines of holder
if item 1 of line i of holder is prodname then
put item 5 of line i of holder into dotnames
repeat
put offset("•",dotnames) into num
if num is empty or num is 0 then exit repeat
put char 1 to (num - 1) of dotnames & return after Writes
delete char 1 to num of dotnames
end repeat
end if
end repeat
end parseW
on parseN
global holder,Network,prodname
put empty into Network
repeat with i = 1 to the number of lines of holder
if item 1 of line i of holder is prodname then
put item 6 of line i of holder into dotnames
repeat
put offset("•",dotnames) into num
if num is empty or num is 0 then exit repeat
put char 1 to (num - 1) of dotnames & return after Network
delete char 1 to num of dotnames
end repeat
end if
end repeat
end parseN
on parseR2
global holder2,Reads2,prodname2
put empty into Reads2
repeat with i = 1 to the number of lines of holder2
if item 2 of line i of holder2 is prodname2 then
put item 4 of line i of holder2 into dotnames
repeat
put offset("•",dotnames) into num
if num is empty or num is 0 then exit repeat
put char 1 to (num - 1) of dotnames & return after Reads2
delete char 1 to num of dotnames
end repeat
end if
end repeat
end parseR2
on parseW2
global holder2,Writes2,prodname2
put empty into Writes2
repeat with i = 1 to the number of lines of holder2
if item 2 of line i of holder2 is prodname2 then
put item 5 of line i of holder2 into dotnames
repeat
put offset("•",dotnames) into num
if num is empty or num is 0 then exit repeat
put char 1 to (num - 1) of dotnames & return after Writes2
delete char 1 to num of dotnames
end repeat
end if
end repeat
end parseW2
on parseN2
global holder2,Network2,prodname2
put empty into Network2
repeat with i = 1 to the number of lines of holder2
if item 2 of line i of holder2 is prodname2 then
put item 6 of line i of holder2 into dotnames
repeat
put offset("•",dotnames) into num
if num is empty or num is 0 then exit repeat
put char 1 to (num - 1) of dotnames & return after Network2
delete char 1 to num of dotnames
end repeat
end if
end repeat
end parseN2
on extractMac
global sol,env,holder
--environments,envnum,solutions,solnum,holder
get card field (env && sol) of card "Mac Grid"
put empty into holder
repeat with i = 1 to the number of lines of it
if item 1 of line i of it <> empty then
put line i of it & return after holder
end if
end repeat
end extractMac
on extractHost
global sol,env,environments,envnum,solutions,solnum,holder
get card field (env && sol) of card "Mac Grid"
put empty into holder
repeat with i = 1 to the number of lines of it
if item 2 of line i of it <> empty then
put line i of it after holder
end if
end repeat
end extractHost
on clean
global Read,Reads,Write,Writes,Network,prodname,side1
global Read2,Reads2,Write2,Writes2,Network2,prodname2,side2,prodname3
global protocol,prodname4,prodname5,service,network1,choice,floor
global protocol1,prodnameH,prodnameHP,common,tidyUpSome
--∆ Check if only the right side should be cleaned. tidyUpSome is
--∆ set in the zoomed in mac screen when changing environemnts.
if tidyUpSome is false then
put empty into Read
put empty into Reads
put empty into Write
put empty into Writes
put empty into Network
put empty into prodname
put empty into side1
put empty into fld "click"
put empty into fld "Prodname"
put empty into fld "ProdnameUp"
put empty into fld "Side1"
put empty into cd fld "Protocol" of cd "Hardware Room"
put empty into protocol
end if
put empty into Read2
put empty into Reads2
put empty into Write2
put empty into Writes2
put empty into Network2
put empty into side2
put empty into prodname2
put empty into fld "click2"
put empty into fld "Prodname2"
put empty into fld "ProdnameUp2"
put empty into fld "Side2"
put empty into cd fld "Protocol2" of cd "Hardware Room"
put empty into fld "Network"
put empty into prodname3
put empty into prodname4
put empty into prodname5
put empty into prodnameH
put empty into prodnameHP
put empty into protocol1
put empty into service
put empty into network1
put empty into choice
put empty into common
put false into tidyUpNow
put false into tidyUpSome
set hilite of bkgnd btn id 43 to false
set hilite of bkgnd btn id 52 to false
end clean
-- part 44 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=40 top=228 right=241 bottom=143
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 242
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: click
----- HyperTalk script -----
on mouseEnter
ChangeCurs 6069
put "Macintosh Side Product" & return & "click for product details" into fld "Tell"
end mouseEnter
on mouseLeave
changeCurs 69
put empty into fld "Tell"
end mouseleave
On mouseDown
Global ClickSND
play ClickSND
End mouseDown
on mouseUp
if fld "prodname" is empty
then
put "Choose a Product!" into fld "Tell"
exit mouseUp
else
put char 1 to 26 of fld "prodname" into prod
push card
visual effect dissolve
go card prod of stack "Products"
end if
end mouseUp
-- part 26 (button)
-- low flags: 00
-- high flags: 8002
-- rect: left=182 top=251 right=270 bottom=335
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 8192
-- line height: 16
-- part name: Application Level
----- HyperTalk script -----
on mouseUp
Global env,sol,sol1,default,theRoom,floor
set the highlight of bkgnd btn "Application Level" to true
set the highlight of bkgnd btn "Network Level" to false
set the highlight of bkgnd btn "Hardware Level" to false
set cursor to busy
set lockscreen to true
put 3 into floor
--• put something into application room environment
--• if user comes from below
if sol1 is empty then put default into sol1
put sol1 into sol
--if bkgnd fld "Floorname" is "Hardware Level" then
if env is not "Mac" then
if env is not "PC" then
put "room" into theRoom
else
put "roomMicro" into theRoom
end if
else
put "roomMac" into theRoom
end if
--end if
go to cd theRoom
unlock screen with wipe down slowly
end mouseUp
on mouseEnter
put "Application Level Button" & return & "click to change levels" into fld "Tell"
changeCurs 6069
end mouseEnter
on mouseLeave
put empty into fld "Tell"
changeCurs 69
end mouseleave
On mouseDown
Global ClickSND
play ClickSND
End mouseDown
-- part 25 (button)
-- low flags: 00
-- high flags: C002
-- rect: left=182 top=269 right=287 bottom=335
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 8192
-- line height: 16
-- part name: Network Level
----- HyperTalk script -----
on mouseUp
Global env,theRoom,sol,sol1,default,floor,network,network1,service
set the highlight of bkgnd btn "Network Level" to true
set the highlight of Background button "Application Level" to false
set the highlight of Background button "Hardware Level" to false
set cursor to busy
set lockscreen to true
--∆ Set up for applications level
if floor is 3 then
put sol into sol1
put "Network Services" into sol
--∆ Put the network service in room that selected applications use
if fld "Network" contains "File Transfer" then
put "File Transfer" into service
end if
if fld "Network" contains "File Service" or fld "Network" contains "CL/1" or fld "Network" contains "Client" then
put "File Service" into service
end if
if fld "Network" contains "Translation" then
put "Translation" into service
end if
end if
--∆ Go to network level with correct effect
put 2 into floor
put "Network Services" into sol
if bkgnd fld "Floorname" is "Application Level"
then
go to cd "Network" && theRoom
unlock screen with wipe up slowly
end if
if bkgnd fld "Floorname" is "Hardware Level" then
if env is not "Mac" then
if env is not "PC" then
put "room" into theRoom
else
put "roomMicro" into theRoom
end if
else
put "roomMac" into theRoom
end if
go to cd "Network" && theRoom
unlock screen with wipe down slowly
end if
end mouseUp
on mouseEnter
put "Network Level Button" & return & "click to change levels" into fld "Tell"
changeCurs 6069
end mouseEnter
on mouseLeave
put empty into fld "Tell"
changeCurs 69
end mouseleave
On mouseDown
Global ClickSND
play ClickSND
End mouseDown
-- part 9 (field)
-- low flags: 81
-- high flags: 6004
-- rect: left=253 top=122 right=279 bottom=395
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 242
-- text size: 12
-- style flags: 8192
-- line height: 12
-- part name: EnvExplainer
----- HyperTalk script -----
on mouseUp
put empty into me
hide me
put empty into field "Explainer"
hide field "Explainer"
end mouseUp
-- part 24 (button)
-- low flags: 00
-- high flags: 8002
-- rect: left=182 top=286 right=303 bottom=335
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 8192
-- line height: 16
-- part name: Hardware Level
----- HyperTalk script -----
on mouseUp
Global theRoom,sol,sol1,default,floor,foundation
set the highlight of me to true
set the highlight of Background button "Application Level" to false
set the highlight of Background button "Network Level" to false
put 1 into floor
if foundation is empty then put "Macintosh II Family" into foundation
set lockscreen to true
Set Cursor to busy
if bkgnd fld "FloorName" is "Application Level" then
put sol into sol1
put "Hardware" into sol
go to cd "Hardware Room"
unlock screen with wipe up slowly
end if
if bkgnd fld "FloorName" is "Network Level" then
put "Hardware" into sol
go to cd "Hardware Room"
unlock screen with wipe up slowly
end if
end mouseUp
on mouseDown
Global ClickSND
play ClickSND
end mouseDown
on mouseEnter
put "Hardware Level Button" & return & "click to change levels" into fld "Tell"
changeCurs 6069
end mouseEnter
on mouseLeave
put empty into fld "Tell"
changeCurs 69
end mouseleave
-- part 37 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=34 top=213 right=235 bottom=147
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 242
-- text size: 9
-- style flags: 0
-- line height: 16
-- part name: prodname
----- HyperTalk script -----
on mouseEnter
changeCurs 6069
put "Macintosh Side" & return & "click for product details" into fld "Tell"
end mouseEnter
on mouseLeave
changeCurs 69
put empty into fld "Tell"
end mouseleave
On mouseDown
Global ClickSND
play ClickSND
End mouseDown
on mouseUp
get me
if it is empty
then
put "Choose a Product!" into fld "Tell"
exit mouseUp
else
put char 1 to 26 of it into prod
push card
visual effect dissolve
go card prod of stack "Products"
end if
end mouseUp
-- part 38 (field)
-- low flags: 01
-- high flags: 0001
-- rect: left=82 top=68 right=82 bottom=244
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 242
-- text size: 9
-- style flags: 256
-- line height: 12
-- part name: prodnameUp
----- HyperTalk script -----
on mouseEnter
changeCurs 6069
put "Macintosh Side Product" & return & "click for product info" into fld "Tell"
end mouseEnter
on mouseLeave
changeCurs 69
put empty into fld "Tell"
end mouseleave
On mouseDown
Global ClickSND
play ClickSND
End mouseDown
on mouseUp
get me
if it is empty
then
put "Choose a product by" & return & "clicking on Macintosh screen" into fld "Tell"
exit mouseUp
else
put char 1 to 26 of it into prod
push card
visual effect dissolve
go card prod of stack "Products"
end if
end mouseUp
-- part 41 (field)
-- low flags: 01
-- high flags: 2002
-- rect: left=103 top=38 right=60 bottom=390
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 156
-- text size: 12
-- style flags: 256
-- line height: 14
-- part name: solName
----- HyperTalk script -----
on mouseEnter
put "Room Name" & return & "current location" into fld "Tell"
end mouseEnter
on mouseLeave
put empty into fld "Tell"
end mouseleave
-- part 43 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=36 top=214 right=231 bottom=146
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
On mouseDown
Global ClickSND
play ClickSND
End mouseDown
on mouseUp
if fld "prodname" is empty
then
put "Choose a Product!" into fld "Tell"
exit mouseUp
else
put char 1 to 26 of fld "prodname" into prod
push card
visual effect dissolve
go card prod of stack "Products"
end if
end mouseUp
on mouseEnter
ChangeCurs 6069
put "Macintosh Based Product" & return & "click for product details" into fld "Tell"
end mouseEnter
on mouseLeave
changeCurs 69
put empty into fld "Tell"
end mouseleave
-- part 45 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=384 top=214 right=233 bottom=494
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 242
-- text size: 9
-- style flags: 0
-- line height: 16
-- part name: prodname2
----- HyperTalk script -----
on mouseEnter
global env
changeCurs 6069
put env & " Side Product" & return & "click for product info" into fld "Tell"
end mouseEnter
on mouseLeave
changeCurs 69
put empty into fld "Tell"
end mouseleave
On mouseDown
Global ClickSND
play ClickSND
End mouseDown
on mouseUp
get me
if it is empty
then
put "Choose a Product!" into fld "Tell"
exit mouseUp
else
put char 1 to 26 of it into prod
push card
visual effect dissolve
go card prod of stack "Products"
end if
end mouseUp
-- part 46 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=385 top=228 right=242 bottom=492
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 242
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: click2
----- HyperTalk script -----
on mouseEnter
changeCurs 6069
put "Host Side Product" & return & "click for product info" into fld "Tell"
end mouseEnter
on mouseLeave
changeCurs 69
put empty into fld "Tell"
end mouseleave
On mouseDown
Global ClickSND
play ClickSND
End mouseDown
on mouseUp
if fld "prodname" is empty
then
put "Choose a Product!" into fld "Tell"
exit mouseUp
else
put char 1 to 26 of fld "prodname" into prod
push card
visual effect dissolve
go card prod of stack "Products"
end if
end mouseUp
-- part 51 (field)
-- low flags: 01
-- high flags: 0001
-- rect: left=247 top=68 right=82 bottom=406
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 242
-- text size: 9
-- style flags: 256
-- line height: 12
-- part name: prodnameUp2
----- HyperTalk script -----
on mouseEnter
global env
changeCurs 6069
put "The " & env & " Side Product" & return & "click for product info" into fld "Tell"
end mouseEnter
on mouseLeave
changeCurs 69
put empty into fld "Tell"
end mouseleave
On mouseDown
Global ClickSND
play ClickSND
End mouseDown
on mouseUp
get me
if it is empty
then
put "Choose a Product by" & return & "by clicking monitor" into fld "Tell"
exit mouseUp
else
put char 1 to 26 of it into prod
push card
visual effect dissolve
go card prod of stack "Products"
end if
end mouseUp
-- part 52 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=384 top=213 right=231 bottom=492
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseEnter
global env
changeCurs 6069
put env & " Side Product" & return & "click for product details" into fld "Tell"
end mouseEnter
on mouseLeave
changeCurs 69
put empty into fld "Tell"
end mouseleave
On mouseDown
Global ClickSND
play ClickSND
End mouseDown
on mouseUp
if fld "prodname2" is empty
then
put "Choose a Product!" into fld "Tell"
exit mouseUp
else
put char 1 to 26 of fld "prodname2" into prod
push card
visual effect dissolve
go card prod of stack "Products"
end if
end mouseUp
on mouseEnter
ChangeCurs 6069
put "Host Button" & return & "click for information" into fld "Tell"
end mouseEnter
on mouseLeave
changeCurs 69
put empty into fld "Tell"
end mouseleave
-- part 53 (field)
-- low flags: 01
-- high flags: 0001
-- rect: left=110 top=86 right=160 bottom=241
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 242
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Side1
----- HyperTalk script -----
on mouseEnter
put "Macintosh Side" & return & "file format(s) used" into fld "Tell"
end mouseEnter
on mouseLeave
changeCurs 69
put empty into fld "Tell"
end mouseleave
-- part 54 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=250 top=86 right=160 bottom=408
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 242
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Side2
----- HyperTalk script -----
on mouseEnter
global env
put env & " Side" & return & "file format(s) used" into fld "Tell"
end mouseEnter
on mouseLeave
put empty into fld "Tell"
end mouseleave
-- part 55 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=154 top=162 right=210 bottom=345
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 242
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Network
----- HyperTalk script -----
on mouseEnter
put "Network communication method required" into fld "Tell"
end mouseEnter
on mouseLeave
put empty into fld "Tell"
end mouseleave
on mouseUp
send mouseUp to bkgnd btn "Network Level"
end mouseUp
-- part 11 (field)
-- low flags: 81
-- high flags: 2002
-- rect: left=142 top=68 right=173 bottom=347
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Explainer
----- HyperTalk script -----
on mouseUp
global help
put false into help
set hilite of bkgnd btn help to false
put empty into me
hide me
put empty into field "Explainer"
hide field "Explainer"
end mouseUp
-- part 59 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=172 top=307 right=339 bottom=340
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 242
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Tell
----- HyperTalk script -----
on mouseEnter
put "Message Field" & return & "displays stack information" into fld "Tell"
end mouseEnter
on mouseLeave
put empty into fld "Tell"
end mouseLeave
-- part 63 (button)
-- low flags: 00
-- high flags: 2002
-- rect: left=385 top=303 right=342 bottom=428
-- title width / last selected line: 0
-- icon id / first selected line: 18849 / 18849
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Lobby
----- HyperTalk script -----
on mouseUp
global Help
if Help is true then exit mouseUp
set lockscreen to true
clean
push card
unlock screen with dissolve
go to cd "Lobby"
end mouseUp
--• HELP
on mouseEnter
global Help
if Help then
set lockscreen to true
show field "Explainer"
put "This is the 'Lobby' button. " & return & return & " Clicking this button will bring you to the Lobby " & "entrance of this stack." into field "Explainer"
unlock screen with dissolve fast
else
put "'Lobby' Button" & return & "click to go to Lobby" into fld "Tell"
end if
end mouseEnter
On mouseDown
global ButtonSND
play ButtonSND
End mouseDown
on mouseLeave
global Help
if Help
then
else
put empty into fld "Tell"
end if
end mouseLeave
-- part 65 (button)
-- low flags: 00
-- high flags: 2002
-- rect: left=427 top=303 right=342 bottom=470
-- title width / last selected line: 0
-- icon id / first selected line: 30492 / 30492
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Kiosk
----- HyperTalk script -----
on mouseUp
global Help
if Help is True then exit mouseUp
set lockScreen to true
clean
push card
visual effect dissolve
go to cd "Matrix"
end mouseUp
--• HELP
on mouseEnter
global Help
if Help then
set lockscreen to true
show field "Explainer"
put "This is the 'Matrix' button. " & return & return & "This button takes you instantly to the Matrix of Solutions " & "and Environments." & return & "This is the fastest way to get started." into field "Explainer"
unlock screen with dissolve fast
else
ChangeCurs 13000
put "'Matrix' Button" & return & "click to go to the Matrix" into fld "Tell"
end if
end mouseEnter
On mouseDown
global ButtonSND
play ButtonSND
End mouseDown
on mouseLeave
global Help
if Help
then
else
put empty into fld "Tell"
end if
end mouseLeave
-- part 69 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=0 top=0 right=0 bottom=0
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
-- part 70 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=0 top=0 right=0 bottom=0
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
-- part 71 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=0 top=0 right=0 bottom=0
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
-- part 72 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=0 top=0 right=0 bottom=0
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
-- part 78 (button)
-- low flags: 00
-- high flags: 2002
-- rect: left=0 top=303 right=342 bottom=43
-- title width / last selected line: 0
-- icon id / first selected line: 10112 / 10112
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: EXIT
----- HyperTalk script -----
on mouseEnter
changeCurs 6069
put "Exit Button" & return & "click to quit or go home" into fld "Tell"
end mouseEnter
on mouseUp
set lockscreen to true
answer "Would you like to Quit, go Home, or Cancel" with "Quit" or "Home" or "Cancel"
unlock screen with dissolve
set lockscreen to true
if it is "Quit" then doMenu "Quit HyperCard"
if it is "Home" then
domenu Home
end if
unlock screen with dissolve
end mouseUp
On mouseDown
global ButtonSND
play ButtonSND
End mouseDown
on mouseLeave
put empty into fld "Tell"
changeCurs 69
end mouseLeave
-- part 79 (button)
-- low flags: 00
-- high flags: 2002
-- rect: left=126 top=303 right=342 bottom=169
-- title width / last selected line: 0
-- icon id / first selected line: 1007 / 1007
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Printer
----- HyperTalk script -----
on mouseUp
set cursor to busy
print card
end mouseUp
on mouseEnter
changeCurs 6069
put "Printer Button" & return & "click to print this image" into fld "Tell"
end mouseEnter
On mouseDown
global ButtonSND
play ButtonSND
End mouseDown
on mouseLeave
put empty into fld "Tell"
changeCurs 69
end mouseLeave
-- part 80 (button)
-- low flags: 00
-- high flags: 2002
-- rect: left=343 top=303 right=342 bottom=386
-- title width / last selected line: 0
-- icon id / first selected line: 1409 / 1409
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Outliner
----- HyperTalk script -----
on mouseUp
global Mack,Host
push card
set cursor to busy
set the lockscreen to true
put true into Mack
put false into Host
go to cd "Outliner"
send mouseUp to cd btn "macSwitch"
unlock screen with dissolve
end mouseUp
on mouseEnter
changeCurs 6069
put "Outliner Button" & return & "use outline navigation" into fld "Tell"
end mouseEnter
On mouseDown
global ButtonSND
play ButtonSND
End mouseDown
on mouseLeave
put empty into fld "Tell"
changeCurs 69
end mouseLeave
-- part 81 (button)
-- low flags: 00
-- high flags: 2002
-- rect: left=469 top=303 right=342 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 9301 / 9301
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: GoBack
----- HyperTalk script -----
on mouseUp
set lockscreen to true
set cursor to busy
go Back
unlock screen with visual effect wipe right
end mouseUp
on mouseEnter
changeCurs 6069
put "Go Back Button" & return & "click to go to prev card" into fld "Tell"
end mouseEnter
On mouseDown
global ButtonSND
play ButtonSND
End mouseDown
on mouseLeave
changeCurs 69
put empty into fld "Tell"
end mouseLeave
-- part 82 (button)
-- low flags: 00
-- high flags: 2002
-- rect: left=84 top=303 right=342 bottom=127
-- title width / last selected line: 0
-- icon id / first selected line: 20358 / 20358
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Glossary
----- HyperTalk script -----
on mouseUp
set cursor to busy
get short name of this card
if it is "Outliner" then clearF
push card
visual effect iris open
go cd "glossary"
end mouseUp
on mouseEnter
put "Glossary Button" & return & "click to go to the Glossary" into fld "Tell"
changeCurs 6069
end mouseEnter
On mouseDown
global ButtonSND
play ButtonSND
End mouseDown
on mouseleave
put empty into fld "Tell"
changeCurs 69
end mouseLeave
-- part 83 (button)
-- low flags: 00
-- high flags: 2002
-- rect: left=42 top=303 right=342 bottom=85
-- title width / last selected line: 0
-- icon id / first selected line: 21375 / 21375
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Outline mode
----- HyperTalk script -----
on mouseEnter
changeCurs 6069
put "Briefing Button" & return & "click to go to briefing room" into fld "Tell"
end mouseEnter
on mouseUp
set lockscreen to true
set cursor to busy
push card
go to cd "Briefing Room"
unlock screen with dissolve
pass mouseUp
end mouseUp
On mouseDown
global ButtonSND
play ButtonSND
End mouseDown
on mouseLeave
put empty into fld "Tell"
changeCurs 69
end mouseLeave
-- part 84 (button)
-- low flags: 00
-- high flags: 2002
-- rect: left=427 top=303 right=342 bottom=470
-- title width / last selected line: 0
-- icon id / first selected line: 30492 / 30492
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Kiosk
----- HyperTalk script -----
on mouseUp
push card
set lockscreen to true
set cursor to busy
go to cd "Matrix"
unlock screen with visual effect dissolve
end mouseUp
on mouseEnter
changeCurs 6069
put "Matrix Button" & return & "use matrix navigation" into fld "Tell"
end mouseEnter
On mouseDown
global ButtonSND
play ButtonSND
End mouseDown
on mouseLeave
put empty into fld "Tell"
changeCurs 69
end mouseLeave
-- part 85 (button)
-- low flags: 00
-- high flags: 2002
-- rect: left=385 top=303 right=342 bottom=428
-- title width / last selected line: 0
-- icon id / first selected line: 18849 / 18849
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Lobby
----- HyperTalk script -----
on mouseUp
set lockscreen to true
set cursor to busy
push card
unlock screen with dissolve
go to cd "Lobby"
end mouseUp
on mouseEnter
changeCurs 6069
put "Lobby Button" & return & "use building navigation" into fld "Tell"